From a2c1fc584a48e0b335aba677e54bc358a8760c3e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 19 Jun 1993 01:23:59 +0000 Subject: [PATCH] (rmail-output): Check file can be read before trying to read part of it. --- lisp/mail/rmailout.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index fa6bf01bf39..f97cb2dcb04 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -162,13 +162,14 @@ When called from lisp code, N may be omitted." ;; If we can do it, read a little of the file ;; to check whether it is an RMAIL file. ;; If it is, don't mess it up. - (insert-file-contents file-name nil 0 20) - (if (looking-at "BABYL OPTIONS:\n") - (error (save-excursion - (set-buffer rmailbuf) - (substitute-command-keys - "Use \\[rmail-output-to-rmail-file] to output to Rmail file `%s'")) - (file-name-nondirectory file-name))) + (and (file-readable-p file-name) + (progn (insert-file-contents file-name nil 0 20) + (looking-at "BABYL OPTIONS:\n")) + (error (save-excursion + (set-buffer rmailbuf) + (substitute-command-keys + "Use \\[rmail-output-to-rmail-file] to output to Rmail file `%s'")) + (file-name-nondirectory file-name))) (erase-buffer) (insert-buffer-substring rmailbuf) (insert "\n") -- 2.30.2